SetYear Subroutine

public subroutine SetYear(year, time)

Set the year of the datetime represented by this instance

Arguments

Type IntentOptional Attributes Name
integer(kind=short), intent(in) :: year
type(DateTime), intent(out) :: time

Source Code

SUBROUTINE  SetYear &
!
(year, time)

IMPLICIT NONE

! Arguments with intent(in):
INTEGER (KIND = short), INTENT(IN) :: year

! Arguments with intent(out):
TYPE (DateTime), INTENT(OUT) :: time

!------------end of declaration------------------------------------------------

time % year = year

CALL DateCheck (time)

END SUBROUTINE SetYear